home *** CD-ROM | disk | FTP | other *** search
/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_8 / issue_01 / cal_prog / CalMaker < prev    next >
Unknown  |  1994-08-23  |  1.4 KB

open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
10% dexvert Truevision Targa Graphic (image/tga) magic Supported
100% file data default
100% xdgMime image/x-tga default (weak)



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 0f f4 20 3e 43 | 61 6c 4d 61 6b 65 72 0d |..... >C|alMaker.|
|00000010| 00 14 12 f4 20 62 79 20 | 43 61 69 6e 20 48 75 6e |.... by |Cain Hun|
|00000020| 74 0d 00 1e 2d f4 20 6e | 6f 74 20 63 6f 70 79 72 |t...-. n|ot copyr|
|00000030| 69 67 68 74 3a 20 75 73 | 65 20 74 68 65 20 63 6f |ight: us|e the co|
|00000040| 64 65 20 61 73 20 79 6f | 75 20 77 69 73 68 0d 00 |de as yo|u wish..|
|00000050| 28 3c f4 20 55 53 45 20 | 41 54 20 59 4f 55 52 20 |(<. USE |AT YOUR |
|00000060| 4f 57 4e 20 52 49 53 4b | 20 2d 20 6e 6f 20 67 75 |OWN RISK| - no gu|
|00000070| 61 72 61 6e 74 65 65 20 | 74 68 61 74 20 69 74 20 |arantee |that it |
|00000080| 77 69 6c 6c 20 77 6f 72 | 6b 21 0d 00 32 04 0d 00 |will wor|k!..2...|
|00000090| 3c 44 dc 20 4d 6f 6e 64 | 61 79 2c 20 54 75 65 73 |<D. Mond|ay, Tues|
|000000a0| 64 61 79 2c 20 57 65 64 | 6e 65 73 64 61 79 2c 20 |day, Wed|nesday, |
|000000b0| 54 68 75 72 73 64 61 79 | 2c 20 46 72 69 64 61 79 |Thursday|, Friday|
|000000c0| 2c 20 53 61 74 75 72 64 | 61 79 2c 20 53 75 6e 64 |, Saturd|ay, Sund|
|000000d0| 61 79 0d 00 46 11 dc 20 | 4a 61 6e 75 61 72 79 2c |ay..F.. |January,|
|000000e0| 20 33 31 0d 00 50 12 dc | 20 46 65 62 72 75 61 72 | 31..P..| Februar|
|000000f0| 79 2c 20 32 38 0d 00 5a | 0f dc 20 4d 61 72 63 68 |y, 28..Z|.. March|
|00000100| 2c 20 33 31 0d 00 64 0f | dc 20 41 70 72 69 6c 2c |, 31..d.|. April,|
|00000110| 20 33 30 0d 00 6e 0d dc | 20 4d 61 79 2c 20 33 31 | 30..n..| May, 31|
|00000120| 0d 00 78 0e dc 20 4a 75 | 6e 65 2c 20 33 30 0d 00 |..x.. Ju|ne, 30..|
|00000130| 82 0e dc 20 4a 75 6c 79 | 2c 20 33 31 0d 00 8c 10 |... July|, 31....|
|00000140| dc 20 41 75 67 75 73 74 | 2c 20 33 31 0d 00 96 13 |. August|, 31....|
|00000150| dc 20 53 65 70 74 65 6d | 62 65 72 2c 20 33 30 0d |. Septem|ber, 30.|
|00000160| 00 a0 11 dc 20 4f 63 74 | 6f 62 65 72 2c 20 33 31 |.... Oct|ober, 31|
|00000170| 0d 00 aa 12 dc 20 4e 6f | 76 65 6d 62 65 72 2c 20 |..... No|vember, |
|00000180| 33 30 0d 00 b4 12 dc 20 | 44 65 63 65 6d 62 65 72 |30..... |December|
|00000190| 2c 20 33 31 0d 00 be 04 | 0d 00 c8 23 de 20 64 61 |, 31....|...#. da|
|000001a0| 79 24 28 36 29 2c 20 6d | 6f 6e 74 68 24 28 31 31 |y$(6), m|onth$(11|
|000001b0| 29 2c 20 6c 65 6e 25 28 | 31 31 29 0d 00 d2 04 0d |), len%(|11).....|
|000001c0| 00 dc 10 e3 20 58 25 20 | 3d 20 30 20 b8 20 36 0d |.... X% |= 0 . 6.|
|000001d0| 00 e6 0e f3 20 64 61 79 | 24 28 58 25 29 0d 00 f0 |.... day|$(X%)...|
|000001e0| 08 ed 20 58 25 0d 00 fa | 04 0d 01 04 11 e3 20 58 |.. X%...|...... X|
|000001f0| 25 20 3d 20 30 20 b8 20 | 31 31 0d 01 0e 1a f3 20 |% = 0 . |11..... |
|00000200| 6d 6f 6e 74 68 24 28 58 | 25 29 2c 20 6c 65 6e 25 |month$(X|%), len%|
|00000210| 28 58 25 29 0d 01 18 08 | ed 20 58 25 0d 01 22 04 |(X%)....|. X%..".|
|00000220| 0d 01 2c 17 f1 20 22 43 | 61 6c 65 6e 64 61 72 20 |..,.. "C|alendar |
|00000230| 4d 61 6b 65 72 22 27 0d | 01 36 18 e8 20 22 57 68 |Maker"'.|.6.. "Wh|
|00000240| 61 74 20 79 65 61 72 22 | 2c 20 79 65 61 72 24 0d |at year"|, year$.|
|00000250| 01 40 14 79 65 61 72 25 | 20 3d 20 bb 28 79 65 61 |.@.year%| = .(yea|
|00000260| 72 24 29 0d 01 4a 4f e7 | 20 28 79 65 61 72 25 20 |r$)..JO.| (year% |
|00000270| 83 20 34 20 3d 20 30 29 | 20 80 20 28 28 79 65 61 |. 4 = 0)| . ((yea|
|00000280| 72 25 20 83 20 31 30 30 | 20 3c 3e 20 30 29 20 84 |r% . 100| <> 0) .|
|00000290| 20 28 79 65 61 72 25 20 | 83 20 34 30 30 20 3d 20 | (year% |. 400 = |
|000002a0| 30 29 29 20 8c 20 6c 65 | 6e 25 28 31 29 20 3d 20 |0)) . le|n%(1) = |
|000002b0| 32 39 0d 01 54 05 f1 0d | 01 5e 04 0d 01 68 10 e3 |29..T...|.^...h..|
|000002c0| 20 58 25 20 3d 20 30 20 | b8 20 36 0d 01 72 1b f1 | X% = 0 |. 6..r..|
|000002d0| 20 3b 58 25 2b 31 3b 20 | 22 2e 20 22 3b 20 64 61 | ;X%+1; |". "; da|
|000002e0| 79 24 28 58 25 29 0d 01 | 7c 08 ed 20 58 25 0d 01 |y$(X%)..||.. X%..|
|000002f0| 86 04 0d 01 90 36 f1 20 | 27 22 57 68 61 74 20 64 |.....6. |'"What d|
|00000300| 61 79 20 69 73 20 31 73 | 74 20 4a 61 6e 75 61 72 |ay is 1s|t Januar|
|00000310| 79 20 22 3b 20 79 65 61 | 72 24 3b 20 22 20 28 30 |y "; yea|r$; " (0|
|00000320| 20 74 6f 20 36 29 22 3b | 0d 01 9a 0a e8 20 64 61 | to 6)";|..... da|
|00000330| 79 25 0d 01 a4 0d 64 61 | 79 25 20 2d 3d 20 31 0d |y%....da|y% -= 1.|
|00000340| 01 ae 04 0d 01 b8 14 2a | 53 50 4f 4f 4c 20 43 61 |.......*|SPOOL Ca|
|00000350| 6c 4f 75 74 70 75 74 0d | 01 c2 48 f1 20 22 7b 22 |lOutput.|..H. "{"|
|00000360| 22 4d 61 69 6e 20 48 65 | 61 64 69 6e 67 22 22 7d |"Main He|ading""}|
|00000370| 22 3b 20 bd 31 30 3b 20 | 79 65 61 72 24 3b 20 22 |"; .10; |year$; "|
|00000380| 7b 22 22 4d 61 69 6e 20 | 48 65 61 64 69 6e 67 22 |{""Main |Heading"|
|00000390| 22 7d 7b 4e 65 78 74 66 | 72 61 6d 65 7d 22 3b 0d |"}{Nextf|rame}";.|
|000003a0| 01 cc 15 e3 20 6d 6f 6e | 74 68 25 20 3d 20 30 20 |.... mon|th% = 0 |
|000003b0| b8 20 31 31 0d 01 d6 44 | f1 20 22 7b 22 22 53 75 |. 11...D|. "{""Su|
|000003c0| 62 2d 48 65 61 64 69 6e | 67 22 22 7d 22 3b 20 6d |b-Headin|g""}"; m|
|000003d0| 6f 6e 74 68 24 28 6d 6f | 6e 74 68 25 29 3b 20 bd |onth$(mo|nth%); .|
|000003e0| 31 30 3b 20 22 7b 22 22 | 53 75 62 2d 48 65 61 64 |10; "{""|Sub-Head|
|000003f0| 69 6e 67 22 22 7d 22 3b | 0d 01 e0 10 e3 20 58 25 |ing""}";|..... X%|
|00000400| 20 3d 20 30 20 b8 20 36 | 0d 01 ea 17 f1 20 bd 39 | = 0 . 6|..... .9|
|00000410| 3b 20 c0 64 61 79 24 28 | 58 25 29 2c 33 29 3b 0d |; .day$(|X%),3);.|
|00000420| 01 f4 08 ed 20 58 25 0d | 01 fe 0a f1 20 bd 31 30 |.... X%.|.... .10|
|00000430| 3b 0d 02 08 10 e7 20 64 | 61 79 25 20 3e 20 30 20 |;..... d|ay% > 0 |
|00000440| 8c 0d 02 12 13 e3 20 58 | 25 20 3d 20 31 20 b8 20 |...... X|% = 1 . |
|00000450| 64 61 79 25 0d 02 1c 09 | f1 20 bd 39 3b 0d 02 26 |day%....|. .9;..&|
|00000460| 08 ed 20 58 25 0d 02 30 | 05 cd 0d 02 3a 12 72 6f |.. X%..0|....:.ro|
|00000470| 77 5f 63 6f 75 6e 74 25 | 20 3d 20 30 0d 02 44 1b |w_count%| = 0..D.|
|00000480| e3 20 58 25 20 3d 20 31 | 20 b8 20 6c 65 6e 25 28 |. X% = 1| . len%(|
|00000490| 6d 6f 6e 74 68 25 29 0d | 02 4e 0d f1 20 bd 39 3b |month%).|.N.. .9;|
|000004a0| 20 58 25 3b 0d 02 58 0d | 64 61 79 25 20 2b 3d 20 | X%;..X.|day% += |
|000004b0| 31 0d 02 62 32 e7 20 64 | 61 79 25 20 3d 20 37 20 |1..b2. d|ay% = 7 |
|000004c0| 8c 20 64 61 79 25 20 3d | 20 30 3a 20 f1 20 bd 31 |. day% =| 0: . .1|
|000004d0| 30 3b 3a 20 72 6f 77 5f | 63 6f 75 6e 74 25 20 2b |0;: row_|count% +|
|000004e0| 3d 20 31 0d 02 6c 08 ed | 20 58 25 0d 02 76 24 f4 |= 1..l..| X%..v$.|
|000004f0| 20 49 46 20 64 61 79 25 | 20 3e 20 30 20 54 48 45 | IF day%| > 0 THE|
|00000500| 4e 20 50 52 49 4e 54 20 | 43 48 52 24 31 30 3b 0d |N PRINT |CHR$10;.|
|00000510| 02 80 1d e3 20 58 25 20 | 3d 20 31 20 b8 20 37 20 |.... X% |= 1 . 7 |
|00000520| 2d 20 72 6f 77 5f 63 6f | 75 6e 74 25 0d 02 8a 0a |- row_co|unt%....|
|00000530| f1 20 bd 31 30 3b 0d 02 | 94 08 ed 20 58 25 0d 02 |. .10;..|... X%..|
|00000540| 9e 30 e7 20 6d 6f 6e 74 | 68 25 20 3d 20 33 20 84 |.0. mont|h% = 3 .|
|00000550| 20 6d 6f 6e 74 68 25 20 | 3d 20 37 20 8c 20 f1 20 | month% |= 7 . . |
|00000560| 22 7b 4e 65 78 74 66 72 | 61 6d 65 7d 22 3b 0d 02 |"{Nextfr|ame}";..|
|00000570| a8 0c ed 20 6d 6f 6e 74 | 68 25 0d 02 b2 0a 2a 53 |... mont|h%....*S|
|00000580| 50 4f 4f 4c 0d 02 bc 1b | 2a 53 65 74 54 79 70 65 |POOL....|*SetType|
|00000590| 20 43 61 6c 4f 75 74 70 | 75 74 20 74 65 78 74 0d | CalOutp|ut text.|
|000005a0| 02 c6 04 0d 02 d0 04 0d | ff |........|. |
+--------+-------------------------+-------------------------+--------+--------+